home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / misc / pegger_demo / jpegs / install pegger < prev   
Encoding:
Text File  |  1995-02-13  |  1.4 KB  |  69 lines
  1. ; Install PEGGER 
  2.  
  3. (set @default-dest "T:")
  4.  
  5. (transcript "Installing PEGGER Libraries")
  6. (working "Installing PEGGER Libraries" )
  7.  
  8. (copylib
  9.     (transcript "copylib")
  10.     (prompt "Installing the pegger.library.")
  11.     (help @copylib-help)
  12.     (source "Libs/pegger.library")
  13.     (dest "LIBS:")
  14.     (confirm)
  15. )
  16.  
  17. (copylib
  18.     (transcript "copylib")
  19.     (prompt "Installing the peggersnoop.library.")
  20.     (help @copylib-help)
  21.     (source "Libs/peggersnoop.library")
  22.     (dest "LIBS:")
  23.     (confirm)
  24. )
  25.  
  26. (copylib
  27.     (transcript "copylib")
  28.     (prompt "Installing the dctv.library.")
  29.     (help @copylib-help)
  30.     (source "Libs/dctv.library")
  31.     (dest "LIBS:")
  32.     (confirm)
  33. )
  34.  
  35. (set pegger_dir (expandpath ""))
  36. (set @default-dest pegger_dir)
  37.  
  38. (transcript "Creating PEGGER data files.")
  39.  
  40. (working "Creating PEGGER Data Files" )
  41.  
  42. (set dataok
  43.     (run (cat "C/PeggerCreate " (cat "\"" pegger_dir "\"")) )
  44. )
  45.  
  46. (if (= dataok 0)
  47.     ((set dataok
  48.         (askbool
  49.             (prompt "Could not create all of PEGGER's data files."
  50.             " Proceed with PEGGER installation?")
  51.             (help)
  52.             (choices "Proceed" "Cancel")
  53.         )
  54.     )
  55.     (if (= dataok 1)
  56.         (transcript "PEGGER Installation Aborted")
  57.         (exit "PEGGER Installation Aborted")
  58.     ))
  59. )
  60.  
  61. (tooltype
  62.     (dest (tackon pegger_dir "PEGGER"))
  63.     (settooltype "PEGGER_DIR" (cat "\"" pegger_dir "\""))
  64.     (settooltype "BACKUP_TEMP_DIR" (cat "\"" pegger_dir "\""))
  65. )
  66.  
  67. (transcript "Installation Completed")
  68. (exit "PEGGER Demo installation completed")
  69.